/* Buy Down */
/* Made by Dell Bond */
/* Version 1.0 */

Planet=ZocAsk("Which planet do you want to put the stuffs on to?")
port= ZocRequest("Which do you want to buy down from?", "(BBS)", "(BSB)", "(SBB)", "Next")
if port="(BBS)" then do
do forever

result=ZocWaitMux("o you want to b", "Command")
select
	when result=0 then t=1
	when result=1 then t=2
end
if t=1 then do
call zocsend "pt^m^m"
call zocsend "l"
call zocsend planet
call zocsend "^mtnl3^mq"

if t=2 then exit

end

exit
end
if port="(BSB)" then do
do forever

result=ZocWaitMux("o you want to b", "Command")
select
	when result=0 then t=1
	when result=1 then t=2
end
if t=1 then do
call zocsend "pt^m^m"
call zocsend "l"
call zocsend planet
call zocsend "^mtnl2^mq"

if t=2 then exit

end

exit
end
if port="(SBB)" then do
do forever

result=ZocWaitMux("o you want to b", "Command")
select
	when result=0 then t=1
	when result=1 then t=2
end
if t=1 then do
call zocsend "pt^m^m"
call zocsend "l"
call zocsend planet
call zocsend "^mtnl1^mq"

if t=2 then exit

end

exit
end
if port="next" then do
port= ZocRequest("Which do you want to buy down from?", "(SSB)", "(SBS)", "(BSS)", "(SSS)")
if port="(SSB)" then do
stuff=ZocRequest("Which one of does do you want to buy from?", "Fuel Ore", "Organics")
if stuff="Organics" then do
do forever

call zocsend "pt0^m"
result=ZocWaitMux(" many holds of Organics do y", "Command")
select
	when result=0 then b=1
	when result=1 then b=2
end

if b=1 then
call zocsend "^m^m"
call zocsend "l"
call zocsend planet
call zocsend "^mtnl2^mq"

if b=2 then exit
end

exit
end
if stuff="Fuel Ore" then do

do forever

call zocsend "pt"
result=ZocWaitMux("s of Fuel Ore do", "Command")
select
	when result=0 then b=1
	when result=1 then b=2
end

if b=1 then
call zocsend "^m^m"
call zocsend "l"
call zocsend planet
call zocsend "^mtnl1^mq"

if b=2 then exit
end

exit
end
end
if port="(SBS)" then do
stuff=ZocRequest("Which one of does do you want to buy from?", "Fuel Ore", "Equipment")
if stuff="Fuel Ore" then do

do forever
call zocsend "pt"
result=ZocWaitMux("olds of Fuel Ore do you", "Command")
select
	when result=0 then b=1
	when result=1 then b=2
end

if b=1 then
call zocsend "^m^ml"
call zocsend planet
call zocsend "^mtnl1^mq"

if b=2 then exit

end

exit

end

if stuff="Equipment" then do

do forever

call zocsend "pt0^m"
result=ZocWaitMux(" holds of Equipment do you", "Command")
select
	when result=0 then b=1
	when result=1 then b=2
end

if b=1 then
call zocsend "^m^ml"
call zocsend planet
call zocsend "^mtnl3^mq"

if b=2 then exit

end

exit
end
if port="(BSS)" then do
stuff=ZocRequest("Which one of does do you want to buy from?", "Organics", "Equipment")
if stuff="Organics" then do
do forever
call zocsend "pt"
result=ZocWaitMux("olds of Organics do", "Command")
select
	when result=0 then b=1
	when result=1 then b=2
end

if b=1 then
call zocsend "^m^m0^ml"
call zocsend planet
call zocsend "^mtnl2^mq"

if b=2 then exit

end
exit
end
if stuff="Equipment" then do
do forever
call zocsend "pt0^m"
result=ZocWaitMux(" of Equipment do", "Command")
select
	when result=0 then b=1
	when result=1 then b=2
end

if b=1 then
call zocsend "^m^ml"
call zocsend planet
call zocsend "^mtnl3^mq"

if b=2 then exit

end
exit
end
end
if port="(SSS)" then do
stuff=ZocRequest("Which one of does do you want to buy from?", "Fuel Ore", "Organics", "Equipment")
if stuff="Fuel Ore" then do

do forever

call zocsend "pt"
result=ZocWaitMux(" of Fuel Ore do", "s of Organics do y", "s of Equipment do yo", "Command")
select
	when result=0 then b=1
	when result=1 then b=2
	when result=2 then b=3
	when result=3 then b=4
end

if b=1 then
call zocsend "^m^m"

if b=2 then
call zocsend "0^m"

if b=3 then 
call zocsend "0^m"

if b=3 then 
call zocsend exit

end
exit
end
if stuff="Organics" then do
end
if stuff="Equipment" then do
end